home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 153 / 153.d81 / u.super mole (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  59 lines
  1. 10 poke53280,0:poke53281,0:printchr$(14)
  2. 20 print"[147][158]   [211] [213] [208] [197] [210]   [205] [207] [204] [197] ([212]imes 2)"
  3. 30 print"[212]his [213]ltragem is actually [212][215][207] in one."
  4. 40 print"[212]he [205]ain [211]uper [205]ole program and the"
  5. 50 print"[205]ole [204]evelmaker program. [195]hanges are:"
  6. 60 print"1) [205]ain [208]rogram, [213]nlimited [205]oles."
  7. 70 print"2) [205]ain [208]rogram, [210]estores to normal."
  8. 71 print"3) [204]evelmaker, [211]aves [204]evels properly."
  9. 72 print"4) [204]evelmaker, [210]estores to normal."
  10. 73 print"    ([211]ee [212]ext [198]ile for [196]etails)"
  11. 100 print"[205]ake sure that the [215]rite-[208]rotect tab"
  12. 110 print"is not covered on the disk."
  13. 130 print"[212]o make the changes, [201]nsert a [195][207][208][217] of"
  14. 140 print"[204]oadstar [201]ssue #131 [211]ide 3 into"
  15. 150 print"[196]rive #8 and [211]elect 1, 2, 3, or 4."
  16. 152 print"[193]fter selecting, [196]o [206][207][212] touch the"
  17. 154 print"keyboard or open the disk drive door"
  18. 156 print"until the white [195]ursor appears!!!!!!"
  19. 160 geta$:ifa$=""then160
  20. 165 ifa$="1"then180
  21. 170 ifa$="2"then400
  22. 171 ifa$="3"then500
  23. 172 ifa$="4"then600
  24. 175 goto160
  25. 180 q$=chr$(34):f$="super mole"
  26. 190 print"[147][144]load"q$f$q$",8"
  27. 200 print"1207 f[207]de=.to1999:n[197]:li=li+2-ll"
  28. 250 print"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
  29. 260 print"poke646,1
  30. 270 [153]""
  31. 280 [129]i[178]631[164]640:[151]i,13:[130]:[151]198,10
  32. 290 [162]:[128]
  33. 400 q$[178][199](34):f$[178]"super mole"
  34. 410 [153]"loadstopload"q$f$q$",8"
  35. 420 [153]"1207 f(NULL)de=.to1999:nval:li=li+1-ll"
  36. 430 [153]"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
  37. 440 [153]"poke646,1
  38. 450 print""
  39. 460 fori=631to640:pokei,13:next:poke198,10
  40. 470 new:end
  41. 500 q$=chr$(34):f$="mole lvlmaker"
  42. 510 print"[147][144]load"q$f$q$",8"
  43. 520 print"105 s[217]49152:o[208]9,8,1,"q$"0:lev"q$"+lv$:print#9,c[200](0);c[200](41);"
  44. 525 print"100 o[208]15,8,15,"q$"s0:lev"q$"+lv$:close15"
  45. 530 print"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
  46. 540 print"poke646,1
  47. 550 [153]""
  48. 560 [129]i[178]631[164]640:[151]i,13:[130]:[151]198,10
  49. 570 [162]:[128]
  50. 600 q$[178][199](34):f$[178]"mole lvlmaker"
  51. 610 [153]"loadstopload"q$f$q$",8"
  52. 620 [153]"100 s(NULL)49152:o(NULL)9,8,1,"q$"0:lev"q$"+lv$:print#9,cleft$(0);cleft$(41);"q$
  53. 625 [153]"105"
  54. 630 [153]"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
  55. 640 [153]"poke646,1
  56. 650 print""
  57. 660 fori=631to640:pokei,13:next:poke198,10
  58. 670 new:end
  59.